10 POKE56,39:CLR:POKE53371,0:POKE788,49:TQ=TI
12 I=RND(-TI)
20 POKE53281,0:POKE53280,0
30 DV=PEEK(186):IFDV<8THENDV=8
32 PRINT"[147]":GOSUB60000
34 DIMG$(13),FG$(13),BD%(13),X1(13),X2(13),Y1(13),Y2(13)
40 SYS57812"ALBUM UNPACKER",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
50 SYS57812"ALBUM.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
60 IFTI<TQ+100THEN60
62 PRINT"[144][147]":TQ=TI
70 POKE251,64:POKE252,96:POKE253,92:SYS51456:SYS51459:POKE53280,5
80 SYS57812"MOUSE JR C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 SYS57812"PRINTER9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
100 SYS57812"ALBUM FONT",DV,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
110 IFTI<TQ+100THEN110
112 C=54272:S=1024:KY$="[145][157]123456"
114 POKE53281,0:SYS51459:POKE53280,0
116 POKE53272,27
118 ML=192*256:MV=ML+156:POKEMV+1,158:V=53248
120 SYSML:SYSML+18,0,38,0,24
122 POKEMV+19,128:SYSML+6,10176:POKEV+21,0
124 POKEV+39,15:POKEV+40,11
126 GOTO180
140 IFI%=1THENY=Y-1:IFY<0THENY=0
142 IFI%=2THENY=Y+1:IFY>24THENY=24
144 IFI%=3THENX=X-1:IFX<0THENX=0
146 IFI%=4THENX=X+1:IFX>39THENX=39
148 RETURN
180 FORI=0TO7:READD:POKEMV+11+I,D:NEXT
190 DATA99,100,101,103,108,123,124,126
200 FORI=1TO12
202 G$(I)="[204][207][193][196][211][212][193][210]"+STR$(I+84):FG$(I)="PIC"+STR$(I+84)+".SHP":BD%(I)=0
210 X1(I)=1-20*(I>6):X2(I)=X1(I)+17
220 Y1(I)=-1+I*3+18*(I>6):Y2(I)=Y1(I)+2
230 SYSML+15,I,X1(I),X2(I),Y1(I),Y2(I)
232 NEXT
340 POKE53272,27
350 FORI=0TO2:READE$(I),M1(I),M2(I),M3(I),M4(I),E1$(I)
360 SYSML+15,13+I,M1(I),M2(I),M3(I),M4(I)
370 DATA"[217][197][193][210] #8",2,12,21,23," 7-[208][201][206]"
380 DATA" [200][197][204][208] ",16,25,21,23," 8-[208][201][206]"
390 DATA" [209][213][201][212]",29,37,21,23," [194][193][195][203]"
400 NEXT
410 SYSML+30,0,39,0,24,0,8
420 POKE53281,0:POKE53280,0
430 POKEV+21,3
452 PRINT"[159]";
460 FORI=1TO12
470 SYSML+30,X1(I),X2(I),Y1(I),Y2(I),255,5+16
480 SYSML+12,X1(I)+9-LEN(G$(I))/2,Y1(I)+1,G$(I)
490 NEXT
500 PRINT"";
510 FORI=0TO2:SYSML+30,M1(I),M2(I),M3(I),M4(I),255,14+16
520 SYSML+12,M1(I)+2,M3(I)+1,E$(I)
530 NEXT
532 X=12:Y=12
534 SYSML+21,X,Y
540 SYSML+9:SYSML+60,KY$
542 IF(L2%=0)AND(I%=0)THEN540
544 P=CR%:IFPTHEN560
550 IF(I%>0)AND(I%<5)THENGOSUB140:GOTO534
552 GOTO540
560 SYSML+39,160
566 IFP=13THEN800
568 IFP=14THEN700
570 IFP=15THEN950
580 SYSML+36,P,255,1
582 POKEV+21,0
590 SYS57812FG$(P),DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
595 MD=PEEK(48*256)
600 POKE251,48:POKE252,96:POKE253,92:SYS51456:POKE53280,BD%(P):SYS51459
610 SYSML+9
612 GETA$:IFA$="P"THENGOSUB3000:GOTO640
620 IFL2%=0THEN610
630 SYS51459
640 SYSML+42,160:POKEV+21,3
650 GOTO540
700 POKEV+21,0:IFHTHENSYSML+42,168:GOTO750
702 H=1
710 SYSML+30,1,38,2,19,255,5+16:PRINT"[129]";
712 SYSML+12,2,3,"    [192][178][192][178][192][178][192][178][192][178][192][178][192][178][192] [176][192][174][174]  [174][192][174][174] [176][176][174][176][174]
714 [158]ML[170]12,2,4,"(null)LEFT$VAL (null)@(null)@ATN@STR$@(null)@(null)@ATN@(null)WAIT -TAN<(null)  -TAN<(null) (null)(null)/EXP(null)
716 SYSML+12,2,5,"    [192][177][192][177][192][177][192][177][192][177][192][177][192][177][192] [189] [173][173][192][189][189][192][189][173][192][189][189]  [173]
720 [158]ML[170]12,2,7,"CONT    (null)SE KEYBOARD, MOUSE IN (null)ORT #1
722 SYSML+12,2,8,"OR JOYSTICK IN [208]ORT #2 TO MOVE THE
724 [158]ML[170]12,2,9,"ARROW. LENLICK OR (null)(null)ATNLENVALCONT ON A GREEN
726 SYSML+12,2,10,"BOX TO SEE THE PICTURE. [215]HILE IT'S
728 [158]ML[170]12,2,11,"SHOWING, PRESS (null)CONT TO GO TO THE LIST(null)(null)RIGHT$(null)(null)CONT"
729 [158]ML[170]12,2,12,"SEQUENCE. ASCOLLOW THE PROMPTS.
730 SYSML+12,2,14,"    [195]LICK ON [155][217][197][193][210] #8[154] TO SEE A
732 [158]ML[170]12,3,15,"SLIDESHOW OF THE TWELVE PICTURES.
734 SYSML+12,3,16,"[195]LICK OR [211][208][193][195][197][154] TO GO TO THE NEXT
736 [158]ML[170]12,3,17,"PICTURE; PRESS (null) TO STOP THE SHOW.
740 SYSML+39,168
750 SYSML+9
760 IFL2%=0THEN750
770 SYSML+42,160:POKEV+21,3
780 GOTO540
799 GOTO799
800 FORI=1TO12
810 SYSML+36,I,255,1
820 POKEV+21,0
830 SYS57812FG$(I),DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
835 MD=PEEK(48*256)
840 TQ=TI
850 POKE251,48:POKE252,96:POKE253,92:SYS51456:POKE53280,BD%(I):SYS51459
860 SYSML+9:GETA$
862 IFA$="Q"THENI=12:GOTO880
870 IFL2%=0ANDTI<TQ+1000THEN860
880 SYS51459
890 SYSML+42,160:POKEV+21,3
892 NEXT
900 GOTO540
950 SYSML+12,30,22,"[195][207][206][198][201][210][205]"
956 POKE198,0:X=30:Y=22:POKEV+21,3
958 SYSML+21,X,Y
960 SYSML+9:SYSML+60,KY$
964 IFI%>0ANDI%<5THENGOSUB140:GOTO958
970 IFCR%=15THENSYSML+3:POKEV+21,0:GOTO40000
972 IFL2%=0THEN960
980 SYSML+42,160
990 GOTO540
3000 SYS51459:SYSML+42,160
3004 PRINT"";
3006 FORI=0TO2:SYSML+30,M1(I),M2(I),M3(I),M4(I),255,5+16
3008 SYSML+12,M1(I)+2,M3(I)+1,E1$(I)
3010 NEXT
3016 POKE198,0:X=30:Y=22:POKEV+21,3
3018 SYSML+21,X,Y
3020 SYSML+9:SYSML+60,KY$
3032 IFCR%=13THENA1=1:TB=80:GOTO3250
3034 IFCR%=14THENA1=2:GOTO3080
3036 IFCR%=15THENRETURN
3040 IFI%>0ANDI%<5THENGOSUB140:GOTO3018
3042 GOTO3020
3080 X=8:Y=7:SYSML+30,6,33,Y,Y+10,255,1+16
3100 SYSML+12,X,Y+1,"[159]   [196][197][206][211][201][212][217]      [215][201][196][212][200]
3110 [158]ML[170]12,X,Y[170]3,"1CONT  (null)INGLE       (null)IDE
3120 SYSML+12,X,Y+4,"2[154]  [195][210][212]          [206]ORMAL
3130 [158]ML[170]12,X,Y[170]5,"3CONT  STR$OUBLE       (null)ARROW
3140 SYSML+12,X,Y+6,"4[154]  [196]OUBLE       [215]IDE
3150 [158]ML[170]12,X,Y[170]7,"5CONT  (null)UAD         (null)ARROW
3160 SYSML+12,X,Y+8,"6[154]  [209]UAD         [206]ORMAL
3166 [151]198,0:X[178]17:Y[178]10:[151]V[170]21,3
3168 [158]ML[170]21,X,Y
3170 [158]ML[170]9:[158]ML[170]60,KY$
3174 [139]L2%[167][139]CY%[177]9[175]CY%[179]16[175]CX%[177]5[175]CX%[179]35[167]A2[178]CY%[171]9:[137]3190
3176 [139]CR%[178]13[167][142]
3178 [139]I%[177]5[167]A2[178]I%[171]4:[137]3190
3182 [139]I%[177]0[175]I%[179]5[167][141]140:[137]3168
3184 [137]3170
3190 [158]ML[170]24,120
3192 [139]A2[178]1[167] DS[178]0:BT[178]1:TB[178]80
3200 [139]A2[178]2[167] DS[178]4:BT[178]1:TB[178]120
3210 [139]A2[178]3[167] DS[178]1:BT[178]1:TB[178]160
3220 [139]A2[178]4[167] DS[178]1:BT[178]2:TB[178]80
3230 [139]A2[178]5[167] DS[178]3:BT[178]2:TB[178]160
3240 [139]A2[178]6[167] DS[178]3:BT[178]3:TB[178]120
3250 X[178]8:Y[178]7:[158]ML[170]30,6,33,Y,Y[170]10,255,1[170]16
3270 [158]ML[170]12,X[170]6,Y[170]1,"LIST(null)ATNPEEKCLOSE(null)(null)(null)RIGHT$(null)RIGHT$(null)(null)
3280 SYSML+12,X,Y+3,"1[154]  [204]EFT
3290 [158]ML[170]12,X,Y[170]4,"2CONT        LENENTER
3300 SYSML+12,X,Y+5,"3[154]                [210]IGHT
3310 [139]A2[179][177]3[175]A2[179][177]5[167]3336
3320 [158]ML[170]12,X,Y[170]6,"4CONT    (null)EFT-LENENTER
3330 SYSML+12,X,Y+7,"5[154]          [210]IGHT-[195]ENTER
3336 X[178]17:Y[178]10:[151]V[170]21,3
3338 [158]ML[170]21,X,Y
3340 [158]ML[170]9:[158]ML[170]60,KY$
3342 [139]L2%[167][139]CY%[177]9[175]CY%[179]16[175]CX%[177]5[175]CX%[179]35[167]A3[178]CY%[171]9:[137]3360
3344 [139]CR%[178]13[167][142]
3346 [139]I%[177]4[175]I%[179]10[167]A3[178]I%[171]4:[137]3360
3348 [139]I%[177]0[175]I%[179]5[167][141]140:[137]3338
3349 [137]3340
3360 [139]A3[178]1[167]TB[178]0:[137]3420
3370 [139]A3[178]2[167]3420
3380 [139]A3[178]3[167]TB[178]TB[172]2:[137]3420
3390 [139]A2[179][177]3[175]A2[179][177]5[167]3340
3400 [139]A3[178]4[167]TB[178]53:[137]3420
3410 TB[178]266
3420 [151]251,48:[151]252,96:[151]253,92:[158]51456
3430 [151]V[170]21,0:[158]ML[170]3:[158]51459
3440 [139]A1[178]1[167][158]36864,96,92,TB,MD:[137]3460
3450 [139]A1[178]2[167][158]36867,96,92,TB,DS,BT,BT[172]320,MD
3460 [151]198,0
3470 [151]186,DV:[158]51459:[158]ML:[158]ML[170]24,120
3480 [142]
10000 D[178][194](186):N$[178]"0:B.LS ALBUM":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null) LEFT$ VAL   (null) (null) ATN STR$ (null) (null) ATN (null)   ATN (null) PEEK (null) (null)"
60040 Z$(2)[178]"ATN (null)LIDESHOW OF (null)(null)ATNSTR$(null)(null)ATN(null) (null)ITLE (null)ICS
60050 Z$(4)="(C) 1998 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN